home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / yerk / mps231ss.hqx / Mops source / Toolbox classes / Dialog < prev    next >
Text File  |  1993-02-07  |  765b  |  45 lines
  1. \ Modal dialog support.
  2.  
  3. \ July 91  mrh    Dialog class moved to module DialogMod.
  4.  
  5. : X    ^base  ;        \ A non-inline version we can use in a vect
  6.  
  7. ' x    vect    CALLER
  8.  
  9. : CLOSER    close: caller  ;
  10.  
  11.     int    THEITEM
  12.     var    ITEMHANDLE
  13.     int    ITEMTYPE
  14.  
  15. false    value    RTM
  16.  
  17. : RETURNTOMODAL        \ Signals modal: method to re-enter ModalDialog.
  18.     true -> rtm  ;
  19.  
  20. from DialogMod  import{  DIALOG  TOGITEM  PARAMTEXT  }
  21.  
  22. compile: dialogMod
  23.  
  24. true  setInstall: dialogMod
  25.  
  26. endload
  27.  
  28. \ testing:
  29.  
  30.     6    dialog    D1    2 setbold: d1
  31.  
  32. : QQQ        20 beep  returnToModal  ;
  33. : WWW         1 beep  returnToModal  ;
  34. : ZZZ        ." useritem hit" cr  returnToModal  ;
  35.  
  36. : CLOSE1    close: d1  ;
  37.  
  38. XTS{ qqq www close1 togitem  zzz  zzz }    300  init: d1
  39.  
  40. : GO
  41.     " MLDtest.rsrc" openresfile        \ ***
  42.     getnew: d1  modal: d1  ;
  43.  
  44. : zz  close: d1  ;
  45.